home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-01-23 | 1.6 KB | 72 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="7"
- "COUNT"="4"
- "UIPATH"="Appearance\Desktop\Icons\'Recycle Bin' Options"
- "NAME"="Recycle Bin Menu"
- "VERSION"="2.04"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Do not display menu on Recycle Bin"
- "TEXT 2"="Display "Rename" only"
- "TEXT 3"="Display "Delete Only" only"
- "TEXT 4"="Display "Delete" and "Rename""
- "DESCRIPTION 1"="Check Box to select which menu items should appear if you right-click the Recycle Bin."
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Whatever ya call it, it's still holds Garbage."
-
-
- sP="HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\ShellFolder\"
- v1="Attributes" 'Binary
-
- val1="40010020" ' no menu
- val2="50010020" ' = Add Rename Only
- val3="60010020" '= Add Delete Only
- val4="70010020" '= Add Delete and Rename
-
-
- Sub Plugin_Initialize
- if RegPathExists(sP) then
- s=RegReadValue(sP&v1)
-
- if s=val1 or IsEmpty(s) then SetUIElement 1,true
- if s=val2 then SetUIElement 2,true
- if s=val3 then SetUIElement 3,true
- if s=val4 then SetUIElement 4,true
-
-
- else
- Call Disable
- end if
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
-
- if GetUIElement(4)=true then
- s=val4
- else
- if GetUIElement(3)=true then
- s=val3
- else
- if GetUIElement(2)=true then
- s=val2
- else
- s=val1
- end if
- end if
- end if
-
- Call RegWriteValue(sp&v1,s,3)
- Call IndicateSettingChange()
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-